;***************************************************************
;discription：实际光能利用率
;
;param1: nrows(input) 行
;param2: ncols(input) 列
;param1: e_t1(input) 低温温胁迫因子
;param2: e_t2(input) 高温胁迫因子
;param3: e_w(input)  水分胁迫因子
;param4: e_emax(input) 理想下的最大光能利用率
;param5: e(output) 实际光能利用率
;
;author: wangqiang( wensten )  2015-09-15  chengdu
;***************************************************************
PRO PRO_NPP_E,nrows,ncols, e_t1, e_t2, e_w, e_emax, e=e
  ;
  FOR yindex=0, nrows-1 DO BEGIN
    FOR xindex=0, ncols-1 DO BEGIN
      ;低温胁迫因子      
      et1_cellvalue=e_t1[yindex,xindex] 
      ;高温胁迫因子    
      et2_cellvalue=e_t2[yindex,xindex] 

      IF (et1_cellvalue EQ -9999.0)||(et2_cellvalue EQ -9999.0) THEN BEGIN
        e[yindex,xindex]=-9999.0
      ENDIF ELSE BEGIN
        ;计算实际光能利用率
        e[yindex,xindex] = et1_cellvalue * et2_cellvalue * e_w * e_emax
      ENDELSE
    ENDFOR
  ENDFOR
END